home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_grd1.scp < prev    next >
Text File  |  1994-11-30  |  6KB  |  333 lines
  1. // CALLED FROM CHAOS_LOAD
  2. { READY_GUARD1
  3.  
  4.     I ( ^ï│         = $Ç╗    ) THEN
  5.         é     
  6.  
  7.     I  @Ç¢              ( GUARD1 ) = $Ç╗    THEN
  8.         {
  9.         Q      ("&&& CAN'T FIND GUARD1 &&&")
  10.         é     
  11.         }
  12.  
  13.     n             CURFIG GUARD1
  14.  
  15.     è          ON
  16.     O     $Ç¥     
  17.     ï           PLAYER
  18.     A  ON
  19.  
  20.     Y                 CE21,CE22,CE23,CE24
  21.  
  22.     ö     GUARD1
  23.     G  GUARDLOC
  24.  
  25.     Z       CURFIG ON
  26.  
  27.     ¥                 AVDBAR2 40
  28.     ¥                 AVDHOLE 200
  29.  
  30.     I  ^ï┤         THEN
  31.         {
  32.         A  OFF
  33.         M      ATK_STAND CONTINUE SNAP_TO
  34.         }
  35.     E   
  36.         {
  37.         M      WAKE_UP CONTINUE SNAP_TO
  38.         â      
  39.         o         
  40.         }
  41.  
  42. }
  43.  
  44. // CALLED FROM ENTER_CELL2
  45. { ACTIVATE_GUARD1
  46.  
  47.     I ( ^ï│         = $Ç╗    ) THEN
  48.         é     
  49.  
  50.     I  @Ç¢              ( GUARD1 ) = $Ç╗    THEN
  51.         {
  52.         Q      ("&&& CAN'T FIND GUARD1 &&&")
  53.         é     
  54.         }
  55.  
  56.     ┬             
  57.  
  58.     A  OFF
  59.  
  60.     @Çì      GREET_GUARD1
  61.  
  62.     I ( ^ï┤         ) THEN
  63.         {
  64.         //CONFRONTENEMY
  65.         p          
  66.         }
  67.     E   
  68.         {
  69.         G  GUARDLOC
  70.         M      WAKE_UP
  71.         M      GET_UP
  72.         ┴            
  73.         }
  74. }
  75.  
  76. // CALLED FROM ACTIVATE_GUARD1
  77. { GREET_GUARD1
  78.  
  79.     @Ç¢              ( PLAYER )
  80.     ┴            
  81.  
  82.     I ( ^ï┤         ) THEN
  83.         {
  84.                     @Ç║       `àê                $üâ       "Back for more?~Alright...  Let's finish it!"
  85.         è          ON
  86.         ┴            
  87.         A  ON
  88.         @Ç¢              ( GUARD1 )
  89.         A  ON
  90.         }
  91.     E   
  92.         {
  93.         ^ï┤         = $Ç╝  
  94.         M      TAUNT2 CONTINUE
  95.                     @Ç║       `àå                 $üé     "Who are you? What have you done to me?~I want answers!"
  96.                     @Ç║       `àç               $üâ       "Freeze, prisoner!"
  97.         è          ON
  98.         ┴            
  99.         A  ON
  100.         }
  101.  
  102.     @Ç¢              ( GUARD1 )
  103.     Z       CURFIG OFF   // TURN GRAVITY OFF (JUST IN CASE -- HOLE) - LRG
  104.     ª             MAXOUT MAXIMUM
  105.     A  ON
  106. }
  107.  
  108.  
  109. { GUARD1_AI
  110.  
  111.     P        ~ÇÇ  
  112.  
  113.     ^       = 0
  114.  
  115.     :LOOP
  116.  
  117.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  118.  
  119.     I ( .ÇéÇâ               != $üì            ) THEN
  120.         {
  121.         â      
  122.         J    #Çä 
  123.         }
  124.  
  125.     I ( ^ï┤         = $Ç╗    ) THEN
  126.         {
  127.         â      
  128.         J    #Çä 
  129.         }
  130.  
  131.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 10
  132.  
  133.     I  ( ~ÇÇ   > 0 ) THEN
  134.         {
  135.         N     ( ~ÇÇ   )
  136.             {
  137.             U    1
  138.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  139.                 M      ATK_M1 CONTINUE
  140.                 X ÇÇ 
  141.             U    2
  142.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  143.                 M      ATK_M2 CONTINUE
  144.                 X ÇÇ 
  145.             U    3
  146.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  147.                 M      ATK_M3 CONTINUE
  148.                 X ÇÇ 
  149.             U    4
  150.             U    6
  151.                 ┴            
  152.                 X ÇÇ 
  153.             U    5
  154.             I  @Çô        ("atk_m5") != $Ç╝   THEN
  155.                 M      ATK_M5 CONTINUE
  156.                 X ÇÇ 
  157.             U    7
  158.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  159.                 M      ATK_M7 CONTINUE
  160.                 X ÇÇ 
  161.             U    8
  162.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  163.                 M      ATK_M8 CONTINUE
  164.                 X ÇÇ 
  165.             U    9
  166.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  167.                 M      ATK_M9 CONTINUE
  168.                 X ÇÇ 
  169.             U    10
  170.             I  @Çô        ("atk_m10") != $Ç╝   THEN
  171.                 M      ATK_M10 CONTINUE
  172.                 X ÇÇ 
  173.             }
  174.         }
  175.     E   
  176.         {
  177.                     @Çì      LUTHOR_ATTACK
  178.         }
  179.  
  180.     â      
  181.     J    #Çä 
  182.  
  183. }
  184.  
  185. { GUARD1_STIMULUS( _DAMAGE )
  186.  
  187. P        ~Çü   
  188.  
  189. :GOT_HIT
  190.  
  191.     I ( @Çó            ( ^ïÜ            ) == $Ç╝   ) THEN
  192.         {
  193.                 ( ^ïÖ           )
  194.         }
  195.  
  196.     é     
  197.  
  198. :SUPER_RECOIL
  199.     ^       ++
  200.     I (^       = 1) THEN
  201.         {
  202.         @Çì      GROWL 5
  203.         //@@@
  204.         ^怒          = @Ç║       `àï                 $üé     "What have you done to me?~Tell me, damn you!"
  205.         ^ï₧         = @Çÿ            ( `àï                 )
  206.  
  207.         }
  208.     I (^       = 3) THEN
  209.         {
  210.         @Çì      GROWL 5
  211.         //@@@
  212.         ^怒          = @Ç║       `àå                 $üé     "Who are you?!  What have you done to me?!~I want answers!"
  213.         ^ï₧         = @Çÿ            ( `àå                 )
  214.  
  215.         }
  216.     I (^       = 4) THEN
  217.         ^       = 0
  218.     é     
  219.  
  220. :PLAYER_SUPER_RECOILED
  221.     ^ïá        ++
  222.  
  223.     A  OFF
  224.     @Ç¥   READY_MONSTER_TAUNT
  225.  
  226.     I (^ïá        = 1) THEN
  227.         {
  228.         // GUARDS NO LONGER TRY TO MOVE THEIR MOUTHS TO SPEAK -KLD
  229.         // @PROCESS GRD_SPEAK 3
  230.         //@@@
  231.         ^ïÜ            = @Ç║       `àë                $üâ       "Let's get you back~to your cage, animal."
  232.         ^ïÖ            = @Çÿ            ( `àë                )
  233.         M      C_TAUNT1 CONTINUE
  234.         }
  235.     I (^ïá        = 2) THEN
  236.         {
  237.         // GUARDS NO LONGER TRY TO MOVE THEIR MOUTHS TO SPEAK -KLD
  238.         // @PROCESS GRD_SPEAK 3
  239.         //@@@
  240.         ^ïÜ            = @Ç║       `àè                $üâ       "Insolent dog! I order you!~Return to your cell!"
  241.         ^ïÖ            = @Çÿ            ( `àè                )
  242.         M      C_TAUNT2 CONTINUE
  243.         }
  244.     I (^ïá        = 4) THEN
  245.         ^ïá        = 0
  246.  
  247.     @Ç¥   PAUSE_FOR_SUBTITLE
  248.     M      ATK_STAND CONTINUE
  249.     A  ON
  250.     é     
  251.  
  252. :KILLED_PLAYER
  253.  
  254.     I ( ^ï│         = $Ç╗    ) THEN
  255.         é     
  256.  
  257.     A  OFF
  258.     ┴            
  259.     M      ATK_STAND CONTINUE
  260.     W    1 SECONDS
  261.  
  262.     // GUARDS NO LONGER TRY TO MOVE THEIR MOUTHS TO SPEAK -KLD
  263.     //@PROCESS GRD_SPEAK 3
  264.     //@@@
  265.     M      TAUNT1 CONTINUE
  266.                 @Ç║       `àî                 $üâ       "Only now, do you recognize~your true masters."
  267.     â      
  268.     è          OFF
  269.     M      STAND CONTINUE
  270. }
  271.  
  272. { GUARD1_DEATH
  273.  
  274.     P        ~ÇÇ   
  275.  
  276.     O     $Çú        
  277.     ^ï│         = $Ç╗   
  278.     ║            ON
  279.     u          CURFIG OFF
  280.     @Ç¢              (GUARD1)
  281.  
  282.     I ( @Ç▒              ( CURFIG HOLE_CTR ) < 200 ) THEN
  283.         {
  284.         ~ÇÇ    = @Ç│               ( CURFIG HOLE_CTR )
  285.         I ( ~ÇÇ    < 60 AND ~ÇÇ    > -60 ) THEN
  286.             £    CELL2WAY GRADUAL
  287.         }
  288.  
  289.     M      DIE
  290.     o         
  291.  
  292.     @Ç¢              (PLAYER)
  293.     M      ATK_M2 CONTINUE
  294.     W    20
  295.     A  OFF
  296.     ┴            
  297.     è          OFF
  298.     M      STAND CONTINUE
  299.     W    1 SECONDS
  300.     M      TAUNT1 CONTINUE
  301.     @Çì      GROWL 5
  302.     //@@@
  303.                 @Ç║       `àì                $üé     "You have stolen my body~and my mind."
  304.     M      TAUNT2 CONTINUE
  305.     @Çì      GROWL 5
  306.     //@@@
  307.                 @Ç║       `àÄ                $üé     "I will know why~or I will have your blood!"
  308.     M      STAND CONTINUE
  309.     â      
  310.     A  ON
  311.  
  312.     // SPECIAL CODE...
  313.  
  314.     C      UNLOCK
  315.     
  316. }
  317.  
  318. { GRDCELL_WOUNDS
  319.     @Ç¢              ( GRDCELL )
  320.     @Ç¥   GRD_WOUNDS
  321. }
  322. { GUARD1_ENTER_COMBAT
  323.     @Ç¢               ( GRDCELL)
  324.     @Ç¥   GRD_ENTER_COMBAT
  325. }
  326.  
  327. { GUARD1_LEAVE_COMBAT
  328.     @Ç¢               ( GRDCELL)
  329.     @Ç¥   GRD_LEAVE_COMBAT
  330. }
  331.  
  332. //$ 26 - version number
  333.